#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <stdbool.h>
#include <arpa/inet.h>
#include <sys/socket.h>
#include "ssu_log.h"
#include "Protocol.h"

#define FILENAME "20022992_2_c.log"
#define RECV_LOG_FILENM "20022992_SERVER.log"
#define BUF_SIZE 1024

void error_handling(char *message);
void _readlog();

int main(int argc, char *argv[]) {
	int sock;
	struct sockaddr_in serv_adr;

	// 마지막 '\n'
	char error_message[] = "Invalid formula.\n";
	char end_message[] = "Bye\n";
	char send_req[] = "Send\n";
	char log_req[] = "Log\n";
	char recv_message[BUF_SIZE];
	char send_message[BUF_SIZE];

	uint8_t outBuf[BUF_SIZE];
	uint8_t inBuf[BUF_SIZE];

	int str_len;

	// 로그 파일 스트림 열기
	// 계속 누적한다
	FILE *fp = fopen(FILENAME, "a+");

	FILE *logfp;

	// 로그파일 용 버퍼 배열
	uint8_t logBuf[BUF_SIZE];

	// 3.3: 실행형식
	// 서버 주소와 포트를 인자 값으로 전달
	if (argc != 3) {
		printf("Usage : %s <IP> <port>\n", argv[0]);
		exit(1);
	}

	sock = socket(PF_INET, SOCK_STREAM, 0);
	if (sock == -1)
		error_handling("socket() error");

	memset(&serv_adr, 0, sizeof(serv_adr));
	serv_adr.sin_family = AF_INET;
	serv_adr.sin_addr.s_addr = inet_addr(argv[1]);
	serv_adr.sin_port = htons(atoi(argv[2]));

	// 3.3.1: 인자값을 이용하여 서버로 접속한다
	if (connect(sock, (struct sockaddr*) &serv_adr, sizeof(serv_adr)) == -1)
		error_handling("connect() error!");

	// 수신 문자배열 초기화
	memset(recv_message, 0, sizeof(recv_message));
	str_len = 0;

	//========================================================//
	// 소켓용 스트림 채널 생성
	FILE *channel = fdopen(sock, "w+");

	// remain size - 버퍼링 길이 계산 변수
	long rSize = sizeof(outBuf);

	// buffer size
	long bufSize = sizeof(outBuf);

	// message size
	int mSize = 0;

	// data part size
	int dtSize = 0;
	int diSize = 0;
	int dSize = 0;

	// log size
	int lSize = 0;

	// header structure
	CalcInfo ci;
	int hSize = sizeof(ci);

	// intialize buffer
	memset(inBuf, 0, sizeof(inBuf));
	memset(outBuf, 0, sizeof(outBuf));

	//========================================================//
	// 서버로부터 시작 문자배열을 전송받고 출력한다
	// receive greeting_message

	// get header part
	if(fread(inBuf, sizeof(uint8_t), sizeof(ci), channel) < 0) {
		error_handling("header fread() error");
	}

	// header binary decode
	if(!Bin_Decode(inBuf, &ci, hSize)) {
		error_handling("header Bin_Decode() error");
	}
	ci.protocol = ntohl(ci.protocol);
	ci.messageType = ntohl(ci.messageType);
	ci.length = ntohl(ci.length);

	// 접속 메시지
	if(ci.messageType == M_HELLO) {
		// get data part
		// data delimiter deframming
		dtSize = Delim_GetNextMsg(inBuf, BUF_SIZE, channel);

		if(dtSize > 0) {
			// data text decode
			while(1) {
				dSize = Text_Decode(recv_message, inBuf+diSize, bufSize);
				printf("%s", recv_message);

				if(dSize < 0)
					break;
				else
					diSize += dSize;
			}
		}
	}

	// initialize to buffer
	memset(outBuf, 0, sizeof(outBuf));
	memset(inBuf, 0, sizeof(inBuf));
	bufSize = sizeof(outBuf);
	rSize = sizeof(outBuf);
	mSize = 0;
	diSize = 0;
	dtSize = 0;
	dSize = 0;

	//========================================================//
	// 3.3.5: "Bye\n"이 입력될 때까지 반복 수행
	while (1) {

		// "Bye\n", "Send\n", "Log\n" 인 경우 Loop EXIT
		while(1) {
			// 송신 문자배열 초기화
			memset(send_message, 0, sizeof(send_message));

			//========================================================//
			// 보내기용 스트림 채널 다시 생성
			channel = fdopen(sock, "w+");

			// 사용자 입력
			fgets(send_message, BUF_SIZE, stdin);

			// enter 만 입력한 경우 제외
			if(!strcmp(send_message, "\n"))
				continue;

			//========================================================//
			// 사용자로부터 수식을 입력받아 수식 메시지를 서버에 전송한다
			// M_CALCREQ - 계산 요청 메시지 - "Send\n"
			if(!strcmp(send_message, send_req)) {

				// 입력된 수식이 없으면 전송하지 않는다
				if(strlen(outBuf) < 1)
					continue;

				ci.protocol = htonl(PROTOCOL_NM);
				ci.messageType = htonl(M_CALCREQ);
				ci.length = htonl(0);

				// frame & send
				// header size + data size
				bufSize = hSize + (BUF_SIZE - rSize);
				mSize = Delim_PutMsg(&ci, outBuf, bufSize, hSize, channel);
				if(mSize < 0) {
					error_handling("Delim_PutMsg() error");
				}

				// initialize to buffer
				memset(outBuf, 0, sizeof(outBuf));
				memset(inBuf, 0, sizeof(inBuf));
				bufSize = sizeof(outBuf);
				rSize = sizeof(outBuf);
				mSize = 0;
				diSize = 0;
				dtSize = 0;
				dSize = 0;

				break;
			}

			//  M_LOGREQ - 로그 파일 요청 메시지 - "Log\n"
			if(!strcmp(send_message, log_req)) {
				// logBuf 초기화
				memset(logBuf, 0, sizeof(logBuf));

				ci.protocol = htonl(PROTOCOL_NM);
				ci.messageType = htonl(M_LOGREQ);
				ci.length = htonl(0);

				// only header size
				bufSize = hSize;
				lSize = Length_PutMsg(&ci, logBuf, bufSize, hSize, channel);
				if(lSize < 0) {
					error_handling("Length_PutMsg() error");
				}
				// outBuf 버퍼 초기화 하지 않는다

				break;
			}

			// M_BYE - 접속종료 메시지
			if(!strcmp(send_message, end_message)) {
				ci.protocol = htonl(PROTOCOL_NM);
				ci.messageType = htonl(M_BYE);
				ci.length = htonl(0);

				// send_message 로 outBuf 초기화
				if((rSize = Text_Encode(send_message, outBuf, rSize)) < 0) {
					error_handling("Text_Encode() error");
				}

				// frame & send
				// header size + data size
				bufSize = hSize + (BUF_SIZE - rSize);
				mSize = Delim_PutMsg(&ci, outBuf, bufSize, hSize, channel);
				if(mSize < 0) {
					error_handling("Delim_PutMsg() error");
				}

				break;
			}

			// 계산식 추가 및 text encode
			// 메시지 크기(mSize) 만큼 outBuf 포인터 이동
			rSize = (size_t) Text_Encode(send_message, outBuf+mSize, rSize);
			if(rSize < 0) {
				error_handling("Text_Encode() error");
			}
			mSize = BUF_SIZE - rSize;

		}

		//========================================================//
		// 연결을 종료하는 문자 입력 처리
		if(ntohl(ci.messageType) == M_BYE)
			break;

		//========================================================//
		// 수신 문자배열 초기화
		memset(recv_message, 0, sizeof(recv_message));
		memset(inBuf, 0, sizeof(inBuf));
		str_len = 0;

		// ======================================================== //
		// get header part
		if(fread(inBuf, sizeof(uint8_t), sizeof(ci), channel) < 0) {
			error_handling("header fread() error");
		}

		// header binary decode
		if(!Bin_Decode(inBuf, &ci, hSize)) {
			error_handling("header Bin_Decode() error");
		}
		// #개선필요
		ci.protocol = ntohl(ci.protocol);
		ci.messageType = ntohl(ci.messageType);
		ci.length = ntohl(ci.length);

		switch (ci.messageType) {

		// 계산 결과  메시지
		case M_CALCRES:
			// get data part
			// data delimiter deframming
			dtSize = Delim_GetNextMsg(inBuf, BUF_SIZE, channel);

			if(dtSize > 0) {
				while(1) {
					// 수신문자배열 초기화
					memset(recv_message, 0, sizeof(recv_message));

					// data text decode
					dSize = Text_Decode(recv_message, inBuf+diSize, bufSize);

					// 입력받은 수식 결과 화면 출력
					printf("%s", recv_message);

					// 수식 결과 로그 기록
					// '\n' 포함, '\0' 문자 제외
					ssu_log_write(fp, recv_message, strlen(recv_message));

					if(dSize < 0)
						break;
					else
						diSize += dSize;
				}
			}

			break;

		// 로그 파일 응답 메시지
		case M_LOGRES:

			// log file fp open
			logfp = fopen(RECV_LOG_FILENM, "w+");

			// logBuf 초기화
			memset(logBuf, 0, sizeof(logBuf));

			// 전송 받은 로그 파일 기록
			long logSize = 0;
			int logTmpSize = 0;


			// header 에 표시된 data size 만큼 읽어오기
			// length deframming

			// log file binary decode
			if(!Bin_Decode(inBuf, &ci, hSize)) {
				error_handling("header Bin_Decode() error");
			}

			// 파일에 기록하기
			int frcnt = fread(logBuf, sizeof(uint8_t), ntohl(ci.length), channel);
			int fwcnt = fwrite(logBuf, sizeof(uint8_t), ntohl(ci.length), logfp);

			// log file fp close
			fclose(logfp);

			// 기록된 로그 확인 #test
			_readlog(RECV_LOG_FILENM);

			break;

		}

	}

	// 소켓 종료
	close(sock);

	// fdopen 소켓 종료
	fclose(channel);

	// 파일 스트림 종료
	fclose(fp);

	// 기록된 로그 확인
	_readlog(FILENAME);

	return 0;
}

void error_handling(char *message) {
	fputs(message, stderr);
	fputc('\n', stderr);
	exit(1);
}

void _readlog(char *fileNm) {
	char buf[BUF_SIZE];
	int logSize;
	FILE *fp = fopen(fileNm, "r+");

	memset(buf, 0, sizeof(buf));

	printf("=== [%s] ===\n", fileNm);

	while(1) {
		logSize = ssu_log_read(fp, buf);

		if(logSize < 1)
			break;

		printf("%d:%s", logSize, buf);
		memset(buf, 0, sizeof(buf));
	}

	fclose(fp);
}
